CREATE OR REPLACE EDITIONABLE FUNCTION "SCOTT"."FNC_EXTRACT_CONTRACT_CODE" (old_code  VARCHAR2)
RETURN VARCHAR2
AS
result VARCHAR2(50);
BEGIN
	select regexp_replace(SUBSTR(old_code, instr(old_code, '.')+1, LENGTH(old_code)), '[0-9]+', '')  into result from dual;
	return(result);
END;